home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 February: Tool Chest / Dev.CD Feb 97 TC.toast / Sample Code / Interapplication Communication / MenuScripter 4.0 / Sources / MSAERevert.c < prev    next >
Encoding:
Text File  |  1996-07-09  |  3.7 KB  |  161 lines  |  [TEXT/CWIE]
  1. // MSAERevert.c
  2. //
  3. // Original version by Jon Lansdell and Nigel Humphreys.
  4. // 4.0 and 3.1 updates by Greg Sutton.
  5. // ©Apple Computer Inc 1996, all rights reserved.
  6.  
  7. #include "MSAERevert.h"
  8.  
  9. #include "MSWindow.h"        // for DPtrFromWindowPtr()
  10. #include "MSFile.h"
  11.  
  12. #include "MSAEUtils.h"
  13. #include "MSAETextUtils.h"
  14. #include "MSAccessors.h"
  15. #include "MSAEDelete.h"
  16. #include "MSAEWindowUtils.h"
  17.  
  18. #pragma segment File
  19.  
  20.  
  21. // -----------------------------------------------------------------------
  22. //    Name:         DoRevert
  23. //    Purpose:    Handles the Revert AppleEvent.
  24. // -----------------------------------------------------------------------
  25.  
  26. pascal OSErr DoRevert(const AppleEvent    *theAppleEvent,
  27.                             AppleEvent     *reply,
  28.                             long        handlerRefCon)
  29. { 
  30. #ifdef __MWERKS__
  31.     #pragma unused (reply, handlerRefCon)
  32. #endif
  33.  
  34.     AEDesc            directObj = {typeNull, NULL};
  35.     WindowToken        aWindowToken;
  36.     OSErr            err;
  37.     
  38.         // pick up the direct object
  39.     err = AEGetParamDesc(theAppleEvent,  keyDirectObject, typeWildCard, &directObj);
  40.     
  41.     err = GotRequiredParams(theAppleEvent);
  42.     if (noErr != err) goto done;
  43.     
  44.     if (typeNull != directObj.descriptorType)
  45.         err = RevertDesc(&directObj);
  46.     else if ( GetNthDocument( 1 ) )                // If no direct object given, default
  47.     {                                            // to the front document.
  48.         aWindowToken.tokenWindow = GetNthDocument( 1 );
  49.         err = RevertDocumentToken( &aWindowToken );
  50.     }
  51.     else
  52.         err = errAENoSuchObject;
  53.         
  54. done:
  55.     (void)AEDisposeDesc(&directObj);
  56.         
  57.     return(err);
  58. } // DoRevertWindow
  59.  
  60.  
  61. OSErr     RevertDocumentToken(WindowToken* theToken)
  62. {
  63.     DPtr            docPtr;
  64.     TextToken        aTextToken;
  65.     OSErr            err;
  66.     
  67.     docPtr = DPtrFromWindowPtr(theToken->tokenWindow);
  68.     
  69.     if (! docPtr)
  70.         return errAEWrongDataType;
  71.  
  72.                         // Get a token for all the text in the window
  73.     err = TextTokenFromDocumentToken(theToken, &aTextToken);
  74.     if (noErr != err) goto done;
  75.                         // Delete all the text
  76.     err = DeleteTextToken(&aTextToken);
  77.     if (noErr != err) goto done;
  78.  
  79.     if (docPtr->everSaved) 
  80.     {
  81.         err = GetFileContents(docPtr->theFSSpec, docPtr);
  82.         if (noErr != err) goto done;
  83.  
  84.         ResizeWindow(docPtr);
  85.         docPtr->dirty = false;
  86.     }
  87.  
  88.     DoUpdate(docPtr->theWindow);
  89.  
  90. done:
  91.     return(err);
  92. }
  93.  
  94.  
  95. OSErr    RevertDocumentDesc(AEDesc* windowDesc)
  96. {
  97.     WindowToken        aWindowToken;
  98.     Size            actualSize;
  99.     OSErr            err;
  100.  
  101.     if (typeMyDocument != windowDesc->descriptorType)
  102.         return(errAETypeError);
  103.         
  104.     GetRawDataFromDescriptor(windowDesc, (Ptr)&aWindowToken, sizeof(aWindowToken), &actualSize);
  105.  
  106.     err = RevertDocumentToken(&aWindowToken);
  107.     
  108.     return(err);
  109. }
  110.  
  111.  
  112. OSErr    RevertDesc(AEDesc* aDesc)
  113. {
  114.     AEDesc        revertDesc = { typeNull, NULL },
  115.                 windowDesc = { typeNull, NULL },
  116.                 itemDesc = { typeNull, NULL };
  117.     long        itemCount,
  118.                 index;
  119.     DescType    theAEKeyword;
  120.     OSErr        err;
  121.     
  122.     if ( typeObjectSpecifier == aDesc->descriptorType )
  123.         err = AEResolve( aDesc, kAEIDoMinimum, &revertDesc );
  124.     else if ( typeNull != aDesc->descriptorType )
  125.         err = AEDuplicateDesc( aDesc, &revertDesc );
  126.         
  127.     if ( noErr != err ) goto done;
  128.     
  129.     switch ( revertDesc.descriptorType )
  130.     {
  131.         case typeAEList:
  132.             err = AECountItems( &revertDesc, &itemCount );
  133.             if ( noErr != err ) goto done;
  134.             
  135.             for ( index = 1; index <= itemCount; index++ )    // Do front back order
  136.             {
  137.                 err = AEGetNthDesc( &revertDesc, index, typeWildCard,
  138.                                                 &theAEKeyword, &itemDesc );
  139.                 if ( noErr != err ) goto done;
  140.                 
  141.                 err = RevertDesc( &itemDesc );    // Call recursively
  142.                 if (noErr != err) goto done;
  143.  
  144.                 (void)AEDisposeDesc( &itemDesc );
  145.             }
  146.             break;
  147.             
  148.         default:
  149.             err = AECoerceDesc( &revertDesc, typeMyDocument, &windowDesc );
  150.             if ( noErr != err ) goto done;
  151.             err = RevertDocumentDesc( &windowDesc );
  152.     }
  153.     
  154. done:
  155.     (void)AEDisposeDesc( &revertDesc );
  156.     (void)AEDisposeDesc( &windowDesc );
  157.     (void)AEDisposeDesc( &itemDesc );
  158.     
  159.     return err;
  160. }
  161.